Fix a thinko in last commit.

diff --git a/src/w32fns.c b/src/w32fns.c
index 5ecddbc11d3e1b55a247bbaa692f413e89780fb9..31c2aa58620c7200f815bec366cce71953060fa9 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -4346,7 +4346,8 @@ This function is an internal primitive--use `make-frame' instead.  */)
   Lisp_Object parent;
   struct kboard *kb;
 
-  if (!FRAME_W32_P (SELECTED_FRAME ()))
+  if (!FRAME_W32_P (SELECTED_FRAME ())
+      && !FRAME_INITIAL_P (SELECTED_FRAME ()))
     error ("Cannot create a GUI frame in a -nw session");
 
   /* Make copy of frame parameters because the original is in pure